10 REM DEMOPROGRAMM ZU SAVE/LOAD DIM
20 REM NIKOLAUS HEUSLER, 010790
30 :
40 IFA=0THENA=1:LOAD"SAVE/LOAD DIM",8,8
50 POKE0,111:POKE56,159:CLR
60 SYS65409:PRINT"EINFACHES TELEFONBUCH
70 [153]" 1 - NEU ANLEGEN
80 PRINT" 2 - AUSGABE
85 [134]N$(10),N(10)
90 [153]"BITTE WAEHLEN!
100 GETA$:IFA$="1"THEN200
102 IFA$="2"THEN300
104 GOTO100
200 PRINT"[147]NEU ANLEGEN
202 [153]"BITTE GEBEN SIE VON ZEHN PERSONEN DEN
204 PRINT"VORNAMEN UND EINE TELEFONNUMMER, DIE
206 [153]"NUR AUS ZIFFERN BESTEHEN DARF, EIN!
210 FORI=1TO10
212 PRINT"EINTRAG #"I
214 INPUT"NAME   ";N$(I)
216 INPUT"NUMMER ";N(I)
218 NEXT
220 PRINT"DATEN WERDEN GESPEICHERT!
222 [159]1,8,15,"S:TELEFONBUCH":[160]1
224 [159]2,8,2,"TELEFONBUCH,S,W
226 SYS40704(N$(1),10)
228 SYS40704(N(1),10)
230 CLOSE2:RUN60
300 PRINT"[147]TELEFONBUCH WIRD GELADEN!
302 [159]2,8,2,"TELEFONBUCH,S,R
304 SYS40818(N$(1),10)
306 SYS40818(N(1),10)
308 CLOSE2
310 FORI=1TO10
312 PRINT"EINTRAG #"I
314 PRINT"NAME   "N$(I)
316 PRINT"NUMMER"N(I)
318 PRINT" - TASTE -[145][145]
320 [146]198,1:[151]198,0
324 [130]
326 [138]60